home *** CD-ROM | disk | FTP | other *** search
- object ResumeForm: TResumeForm
- Left = 192
- Top = 107
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Resuming File Transfer - TmsFTPClient Component'
- ClientHeight = 348
- ClientWidth = 356
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 356
- Height = 225
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 45
- Width = 34
- Height = 13
- Caption = 'Server:'
- end
- object Label2: TLabel
- Left = 8
- Top = 74
- Width = 56
- Height = 13
- Caption = 'User Name:'
- end
- object Label3: TLabel
- Left = 8
- Top = 102
- Width = 49
- Height = 13
- Caption = 'Password:'
- end
- object Label4: TLabel
- Left = 8
- Top = 160
- Width = 50
- Height = 13
- Caption = 'File Name:'
- end
- object Label5: TLabel
- Left = 8
- Top = 131
- Width = 109
- Height = 13
- Caption = 'Directory on the Server'
- end
- object SpeedButton1: TSpeedButton
- Left = 320
- Top = 155
- Width = 23
- Height = 22
- Caption = '...'
- OnClick = SpeedButton1Click
- end
- object Label7: TLabel
- Left = 8
- Top = 16
- Width = 46
- Height = 13
- Caption = 'Operation'
- end
- object ServerEdit: TEdit
- Left = 136
- Top = 41
- Width = 209
- Height = 21
- TabOrder = 1
- end
- object UserNameEdit: TEdit
- Left = 136
- Top = 70
- Width = 209
- Height = 21
- TabOrder = 2
- end
- object PasswordEdit: TEdit
- Left = 136
- Top = 98
- Width = 209
- Height = 21
- PasswordChar = '*'
- TabOrder = 3
- end
- object FileNameEdit: TEdit
- Left = 136
- Top = 156
- Width = 177
- Height = 21
- TabOrder = 5
- end
- object StartButton: TButton
- Left = 20
- Top = 192
- Width = 75
- Height = 25
- Caption = 'Start'
- TabOrder = 6
- OnClick = StartButtonClick
- end
- object CancelButton: TButton
- Left = 260
- Top = 192
- Width = 75
- Height = 25
- Caption = 'Cancel'
- Enabled = False
- TabOrder = 8
- OnClick = CancelButtonClick
- end
- object RemoteDirectoryEdit: TEdit
- Left = 136
- Top = 127
- Width = 209
- Height = 21
- TabOrder = 4
- end
- object ResumeButton: TButton
- Left = 140
- Top = 192
- Width = 75
- Height = 25
- Caption = 'Resume'
- TabOrder = 7
- OnClick = ResumeButtonClick
- end
- object OperationComboBox: TComboBox
- Left = 136
- Top = 12
- Width = 209
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Upload'
- 'Download')
- TabOrder = 0
- end
- end
- object LogMemo: TMemo
- Left = 0
- Top = 225
- Width = 356
- Height = 104
- Align = alClient
- TabOrder = 1
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 329
- Width = 356
- Height = 19
- Panels = <>
- SimplePanel = True
- SizeGrip = False
- end
- object msFTPClient1: TmsFTPClient
- Version = '2.0'
- OnConnected = msFTPClient1Connected
- OnDisconnected = msFTPClient1Disconnected
- Port = 21
- OnConnecting = msFTPClient1Connecting
- PassiveMode = False
- ServerType = stAuto
- TransferType = ttBinary
- ProxyType = fpUserNoLogon
- OnDataTransferStart = msFTPClient1DataTransferStart
- OnDataTransferTerminate = msFTPClient1DataTransferTerminate
- OnDataTransferProgress = msFTPClient1DataTransferProgress
- OnLineSent = OnLineTransferred
- OnLineReceived = OnLineTransferred
- Left = 176
- Top = 248
- end
- object OpenDialog: TOpenDialog
- FileEditStyle = fsEdit
- Filter = 'All Files (*.*)|*.*'
- Left = 216
- Top = 248
- end
- end
-